home *** CD-ROM | disk | FTP | other *** search
- ; passwortdatei codePW 2.1 by Jürgen Einrauch 16. Juli 1997
- failat 21
-
- echo " *n*e[32m ___________________________________________________*e[0m"
- echo " *e[43m *e[0m"
- echo " *e[28;43m Paßwortdatei codePW Version 2.1 *e[0m"
- echo " *e[43m___________________________________________________*e[0m*n"
-
- IF EXISTS SYS:S/codePW
- echo " *e[32mPaßwortdatei codePW existiert bereits.*e[0m"
- echo " *e[32mInstallation wird abgebrochen.*e[0m"
- echo "*n Lesen Sie dazu bitte die Informationsdatei."
- wait 4 secs
- endcli >nil:
- quit
- else
- echo " Lesen Sie zuerst die Informationsdatei zu codePW !"
- echo noline "*n Wollen Sie codePW jetzt installieren ? (Ja/Nein): "
- set > nil: Inp ?
- if $Inp eq "ja"
- skip start
- endif
- if $Inp eq "j"
- skip start
- endif
- if $Inp eq "y"
- skip start
- endif
- if $Inp eq "yes"
- skip start
- endif
- echo noline "*n Installation abgebrochen."
- EndCLI >NIL:
- quit
-
- lab start
- search >nil: from s:user-startup search "; Begin codePW"
- search >nil: from s:user-startup search "IF EXISTS S:codePW"
- search >nil: from s:user-startup search " EXECUTE S:codePW"
- search >nil: from s:user-startup search "ENDIF; END codePW"
- if warn
- skip user
- else
- echo ""
- skip install
- endif
-
- lab user
- IF EXISTS SYS:S/User-StartUP
- echo "*n Ergänze Ihr Verzeichnis S/User-StartUP."
- else
- wait 2 secs
- echo "*n Keine User-StartUP gefunden,"
- echo " erstelle Verzeichnis neu."
- echo "*n Ergänze Ihr Verzeichnis S/User-StartUP."
- skip userneu
- endif
-
- lab userneu
- echo >ram:tmp "*n; Begin codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp "IF EXISTS S:codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp " EXECUTE S:codePW"
- type >>s:user-startup ram:tmp
- echo >ram:tmp "ENDIF; End codePW*n"
- type >>s:user-startup ram:tmp
- delete >nil: ram:tmp
-
- lab install
-
- set > nil: pass ;eingefügt wegen eines bugs !!!
- echo " Installiere Datei codePW."
- endif
- wait 2 secs
- echo "*n Tragen Sie jetzt Ihre Anschrift ein."
- echo noline "*n Vorname, Name : "
- set > nil: nam ?
- echo >ram:tmp "echo *"*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "echo *"*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "echo *" $nam*""
- type >>s:codePW ram:tmp
- echo noline " Straße, Hausnummer : "
- set > nil: str ?
- echo >ram:tmp "echo *" $str*""
- type >>s:codePW ram:tmp
- echo noline " PLZ, Wohnort : "
- set > nil: plz ?
- echo >ram:tmp "echo *" $plz*""
- type >>s:codePW ram:tmp
- echo "*n Tragen Sie jetzt ein Paßwort ein. Wählen Sie dazu"
- echo " nur *e[32mein*e[0m zusammenhängendes Wort bzw. Zahlenkombination"
- echo " *e[32mohne*e[0m Leertasten !*n"
- echo noline " Paßwort : "
- set > nil: eingabe ?
- echo >ram:tmp "echo *" *e[32m_____________________________________________________________*e[0m*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo *" *e[;;43m *e[0m*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo *" *e[0;28;43m Dreimalige Falscheingabe blockiert jeden weiteren Zugang! *e[0m*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo *" *e[;;43m_____________________________________________________________*e[0m*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo *"*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "lab passwort"
- type >>s:codePW ram:tmp
- echo >ram:tmp "echo noline *"*e[;;31m*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo noline *" Paßwort: *""
- type >>s:codepw ram:tmp
- echo >ram:tmp "echo noline *"*e[;;30m]*""
- type >>s:codepw ram:tmp
- echo >ram:tmp "set > nil: pass ?"
- type >>s:codePW ram:tmp
- echo >ram:tmp "If $pass not eq *"$eingabe*""
- type >>s:codePW ram:tmp
- echo >ram:tmp "skip back passwort"
- type >>s:codePW ram:tmp
- echo >ram:tmp "endif"
- type >>s:codePW ram:tmp
- echo >ram:tmp "unset >nil: pass"
- type >>s:codePW ram:tmp
- unset >nil: eingabe ;damned bug now fixed ?
- unset >nil: pass ;
-
- delete >nil: ram:tmp
- wait 2 secs
-
- echo "*n Installation beendet."
- echo " Starten Sie Ihren Rechner neu und überpüfen Sie"
- echo " die ordnungsgemäße Installation, indem Sie zunächst"
- echo " ein falsches und danach das richtige Paßwort ein-"
- echo " geben."
- echo " Bitte 5 Sekunden Geduld ......"
- wait 5 secs
- endcli >nil:
- quit
-